program swdk;

uses
  Forms,Windows,datamUnit,
  Unitswdk in 'Unitswdk.pas' {Form1};

{$R *.res}

begin
  CreateMutex(nil, true,'kphook');
  if GetLastError()= ERROR_ALREADY_EXISTS then
  Application.Terminate;
  Application.Initialize;
  Application.Title :='HostApp';
  Application.CreateForm(TDataM, DataM);
  datam.UniConnection1.Database:='.\data\order.db';
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
